home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / XML Utilities / Professional Programmer XSL IDE / Xselerator25.msi / Data.Cab / F16716_StandardSnippetLibrary.xml < prev    next >
Encoding:
Extensible Markup Language  |  2002-01-28  |  24.5 KB  |  251 lines
  1.  ■<?xml version="1.0" encoding="UTF-16"?>
  2. <xselerator_snippet_library>
  3. <snippet favourite="yes">
  4. <hotkey>24644</hotkey>
  5. <short_description><![CDATA[XPath Uppercase]]></short_description>
  6. <full_description><![CDATA[XPath uppercase function]]></full_description>
  7. <fragment type="simple"><![CDATA[translate(^^here^^,'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ')]]></fragment>
  8. </snippet>
  9. <snippet favourite="yes">
  10. <short_description><![CDATA[XPath Lowercase]]></short_description>
  11. <full_description><![CDATA[XPath lowercase function]]></full_description>
  12. <fragment type="simple"><![CDATA[translate(.,'ABCDEFGHIJKLMNOPQRSTUVWXYZ','abcdefghijklmnopqrstuvwxyz')]]></fragment>
  13. </snippet>
  14. <snippet favourite="yes">
  15. <short_description><![CDATA[XPath ABS() Function]]></short_description>
  16. <full_description><![CDATA[Perform ABS() in XPath]]></full_description>
  17. <fragment type="simple"><![CDATA[concat(substring('-',2 - (. &lt; 0)), '1') * .]]></fragment>
  18. </snippet>
  19. <snippet favourite="yes">
  20. <short_description><![CDATA[HTML/ISO-88591-1 xsl:output]]></short_description>
  21. <full_description><![CDATA[xsl:output with presets for
  23.   method: html
  25.   encoding: ISO-88591-1
  27.   doctype-public: -//W3C//DTD HTML 4.0 Transitional//EN]]></full_description>
  28. <stylesheet_fragment><![CDATA[<xsl:output method="html" encoding="ISO-8859-1" doctype-public="-//W3C//DTD HTML 4.0 Transitional//EN" />]]></stylesheet_fragment>
  29. </snippet>
  30. <snippet favourite="yes">
  31. <short_description><![CDATA[Quick choose/when/otherwise]]></short_description>
  32. <full_description><![CDATA[Pre-built xsl:choose/xsl:when/xsl:otherwise statements]]></full_description>
  33. <fragment type="indented"><![CDATA[  <xsl:choose>
  34.     <xsl:when test="">
  35.             
  36.     </xsl:when>
  37.     <xsl:otherwise>
  38.             
  39.     </xsl:otherwise>
  40.   </xsl:choose>]]></fragment>
  41. </snippet>
  42. <snippet favourite="yes">
  43. <short_description><![CDATA[Template comment]]></short_description>
  44. <full_description><![CDATA[Comment for template]]></full_description>
  45. <fragment type="simple"><![CDATA[<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  46.   Template:
  47.   Description:
  48.   Parameters:-
  49.   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->]]></fragment>
  50. </snippet>
  51. <snippet favourite="yes">
  52. <short_description><![CDATA[Inner comment]]></short_description>
  53. <full_description><![CDATA[Comment with begin and end lines]]></full_description>
  54. <fragment type="indented"><![CDATA[<!-- =========================================================================
  56. ============================================================================== -->]]></fragment>
  57. </snippet>
  58. <snippet favourite="yes">
  59. <short_description><![CDATA[XSL Namespace (XSLT)]]></short_description>
  60. <full_description><![CDATA[xmlns:xsl="http://www.w3.org/1999/XSL/Transform"]]></full_description>
  61. <fragment type="simple"><![CDATA[xmlns:xsl="http://www.w3.org/1999/XSL/Transform"]]></fragment>
  62. </snippet>
  63. <snippet favourite="yes">
  64. <short_description><![CDATA[MS-XSL Namespace]]></short_description>
  65. <full_description><![CDATA[xmlns:msxsl="urn:schemas-microsoft-com:xslt"]]></full_description>
  66. <fragment type="simple"><![CDATA[xmlns:msxsl="urn:schemas-microsoft-com:xslt"]]></fragment>
  67. </snippet>
  68. <snippet favourite="yes">
  69. <short_description><![CDATA[XSL Namespace (XSL-WD)]]></short_description>
  70. <full_description><![CDATA[xmlns:xsl="http://www.w3.org/TR/WD-xsl"]]></full_description>
  71. <fragment type="simple"><![CDATA[xmlns:xsl="http://www.w3.org/TR/WD-xsl"]]></fragment>
  72. </snippet>
  73. <snippet favourite="no">
  74. <short_description><![CDATA[Template: Bin2Dec]]></short_description>
  75. <full_description><![CDATA[Convert binary string to decimal value]]></full_description>
  76. <new_template_fragment><![CDATA[<!-- ========================================================= -->
  77. <!-- Function: Bin2Dec(<value>) => Decimal value               -->
  78. <!-- Parameters:-                                              -->
  79. <!--   <value>  - the binary string to be converted to decimal -->
  80. <xsl:template name="Bin2Dec">
  81.     <xsl:param name="value" select="'0'"/>
  82.     <!-- the following paremeters are used only during recursion -->
  83.     <xsl:param name="bin-power" select="number(1)"/>
  84.     <xsl:param name="accum" select="number(0)"/>
  85.     <!-- isolate last binary digit  -->
  86.     <xsl:variable name="bin-digit" select="substring($value,string-length($value),1)"/>
  87.     <!-- check that binary digit is valid -->
  88.     <xsl:choose>
  89.         <xsl:when test="not(contains('01',$bin-digit))">
  90.             <!-- not a binary digit! -->
  91.             <xsl:text>NaN</xsl:text>
  92.         </xsl:when>
  93.         <xsl:when test="string-length($bin-digit) = 0">
  94.             <!-- unexpected end of hex string -->
  95.             <xsl:text>0</xsl:text>
  96.         </xsl:when>
  97.         <xsl:otherwise>
  98.             <!-- OK so far -->
  99.             <xsl:variable name="remainder" select="substring($value,1,string-length($value)-1)"/>
  100.             <xsl:variable name="this-digit-value" select="number($bin-digit) * $bin-power"/>
  101.             <!-- determine whether this is the end of the hex string -->
  102.             <xsl:choose>
  103.                 <xsl:when test="string-length($remainder) = 0">
  104.                     <!-- end - output final result -->
  105.                     <xsl:value-of select="$accum + $this-digit-value"/>
  106.                 </xsl:when>
  107.                 <xsl:otherwise>
  108.                     <!-- recurse to self for next digit -->
  109.                     <xsl:call-template name="Bin2Dec">
  110.                         <xsl:with-param name="value" select="$remainder"/>
  111.                         <xsl:with-param name="bin-power" select="$bin-power * 2"/>
  112.                         <xsl:with-param name="accum" select="$accum + $this-digit-value"/>
  113.                     </xsl:call-template>
  114.                 </xsl:otherwise>
  115.             </xsl:choose>
  116.         </xsl:otherwise>
  117.     </xsl:choose>
  118. </xsl:template>]]></new_template_fragment>
  119. </snippet>
  120. <snippet favourite="no">
  121. <short_description><![CDATA[Template: Hex2Dec]]></short_description>
  122. <full_description><![CDATA[Convert a hex string to decimal value]]></full_description>
  123. <new_template_fragment><![CDATA[<!-- ======================================================== -->
  124. <!-- Function: Hex2Dec(<value>) => Decimal value              -->
  125. <!-- Parameters:-                                             -->
  126. <!--   <value>  - the hex string to be converted to decimal   -->
  127. <!--              (case of hex string is unimportant)         -->
  128. <xsl:template name="Hex2Dec">
  129.     <xsl:param name="value" select="'0'"/>
  130.     <!-- the following paremeters are used only during recursion -->
  131.     <xsl:param name="hex-power" select="number(1)"/>
  132.     <xsl:param name="accum" select="number(0)"/>
  133.     <!-- isolate last hex digit (and convert it to upper case) -->
  134.     <xsl:variable name="hex-digit" select="translate(substring($value,string-length($value),1),'abcdef','ABCDEF')"/>
  135.     <!-- check that hex digit is valid -->
  136.     <xsl:choose>
  137.         <xsl:when test="not(contains('0123456789ABCDEF',$hex-digit))">
  138.             <!-- not a hex digit! -->
  139.             <xsl:text>NaN</xsl:text>
  140.         </xsl:when>
  141.         <xsl:when test="string-length($hex-digit) = 0">
  142.             <!-- unexpected end of hex string -->
  143.             <xsl:text>0</xsl:text>
  144.         </xsl:when>
  145.         <xsl:otherwise>
  146.             <!-- OK so far -->
  147.             <xsl:variable name="remainder" select="substring($value,1,string-length($value)-1)"/>
  148.             <xsl:variable name="this-digit-value" select="string-length(substring-before('0123456789ABCDEF',$hex-digit)) * $hex-power"/>
  149.             <!-- determine whether this is the end of the hex string -->
  150.             <xsl:choose>
  151.                 <xsl:when test="string-length($remainder) = 0">
  152.                     <!-- end - output final result -->
  153.                     <xsl:value-of select="$accum + $this-digit-value"/>
  154.                 </xsl:when>
  155.                 <xsl:otherwise>
  156.                     <!-- recurse to self for next digit -->
  157.                     <xsl:call-template name="Hex2Dec">
  158.                         <xsl:with-param name="value" select="$remainder"/>
  159.                         <xsl:with-param name="hex-power" select="$hex-power * 16"/>
  160.                         <xsl:with-param name="accum" select="$accum + $this-digit-value"/>
  161.                     </xsl:call-template>
  162.                 </xsl:otherwise>
  163.             </xsl:choose>
  164.         </xsl:otherwise>
  165.     </xsl:choose>
  166. </xsl:template>]]></new_template_fragment>
  167. </snippet>
  168. <snippet favourite="no">
  169. <short_description><![CDATA[Template: Dec2Hex]]></short_description>
  170. <full_description><![CDATA[Convert a decimal value to hex string]]></full_description>
  171. <new_template_fragment><![CDATA[<!-- ===================================================== -->
  172. <!-- Function: Dec2Hex(<value>[,<digits>]) => Hex string   -->
  173. <!-- Parameters:-                                          -->
  174. <!--   <value>  - the decimal value to be converted to hex -->
  175. <!--              (must be a positive)                     -->
  176. <!--   <digits> - the number of hex digits required        -->
  177. <!--              If this parameter is omitted then the    -->
  178. <!--              hex string returned is as long as reqd.  -->
  179. <!--              If the number of digits required exceeds -->
  180. <!--              the value specified by this parameter    -->
  181. <!--              then the hex string is as long as reqd.  --> 
  182. <xsl:template name="Dec2Hex">
  183.     <xsl:param name="value" select="number(0)"/>
  184.     <xsl:param name="digits" select="number(-1)"/>
  185.     <!-- the following paremeters are used only during recursion -->
  186.     <xsl:param name="hex" select="number(268435456)"/>
  187.     <xsl:param name="hex-power" select="number(28)"/>
  188.     <xsl:param name="nonzero-encounters" select="false()"/>
  189.     <!-- calculate the left over value to be passed to next recursion -->
  190.     <xsl:variable name="remainder" select="floor($value) mod $hex"/>
  191.     <!-- calculate the value of this nybble (this hex digit) -->
  192.     <xsl:variable name="this-nybble" select="(floor($value) - $remainder) div ($hex)"/>
  193.     <!-- determine whether a non-zero digit has been encountered yet -->
  194.     <xsl:variable name="nonzero-encountered" select="boolean($nonzero-encounters or ($this-nybble &gt; 0))"/>
  195.     <!-- only output hex digit if:-                   -->
  196.     <!--     non-zero has already been encountered OR -->
  197.     <!--     on the last digit OR                     -->
  198.     <!--     the number of required digits says so    -->
  199.     <xsl:if test="$nonzero-encountered or ($hex-power = 0) or ((($hex-power div 4) + 1) &lt;= $digits)">
  200.         <xsl:value-of select="substring('0123456789ABCDEF',($this-nybble)+1,1)"/>
  201.     </xsl:if>
  202.     <!-- recursive call until all digits have been dealt with -->
  203.     <xsl:if test="$hex-power &gt; 0">
  204.         <xsl:call-template name="Dec2Hex">
  205.             <xsl:with-param name="value" select="$remainder"/>
  206.             <xsl:with-param name="hex" select="$hex div 16"/>
  207.             <xsl:with-param name="hex-power" select="$hex-power - 4"/>
  208.             <xsl:with-param name="digits" select="$digits"/>
  209.             <xsl:with-param name="nonzero-encounters" select="$nonzero-encountered"/>
  210.         </xsl:call-template>
  211.     </xsl:if>
  212. </xsl:template>]]></new_template_fragment>
  213. </snippet>
  214. <snippet favourite="no">
  215. <short_description><![CDATA[Template: Dec2Bin]]></short_description>
  216. <full_description><![CDATA[Convert a decimal value to binary string]]></full_description>
  217. <new_template_fragment><![CDATA[<!-- ======================================================== -->
  218. <!-- Function: Dec2Bin(<value>) => Binary string              -->
  219. <!-- Parameters:-                                             -->
  220. <!--   <value>  - the decimal value to be converted to binary -->
  221. <!--              (must be a positive)                        -->
  222. <xsl:template name="Dec2Bin">
  223.     <xsl:param name="value" select="number(0)"/>
  224.     <!-- the following paremeters are used only during recursion -->
  225.     <xsl:param name="bin" select="number(2147483648)"/>
  226.     <xsl:param name="bin-power" select="number(31)"/>
  227.     <xsl:param name="one-encounters" select="false()"/>
  228.     <!-- calculate the left over value to be passed to next recursion -->
  229.     <xsl:variable name="remainder" select="$value mod $bin"/>
  230.     <!-- calculate the value of this bit (this binary digit) -->
  231.     <xsl:variable name="this-bit" select="$value - $remainder"/>
  232.     <!-- determine whether a non-zero digit has been encountered yet -->
  233.     <xsl:variable name="one-encountered" select="boolean($one-encounters or ($this-bit &gt; 0))"/>
  234.     <!-- only output digit if:                        -->
  235.     <!--     non-zero has already been encountered OR -->
  236.     <!--     on the last digit                        -->
  237.     <xsl:if test="$one-encountered or ($bin-power = 0)">
  238.         <xsl:value-of select="substring('01',($this-bit div $bin)+1,1)"/>
  239.     </xsl:if>
  240.     <!-- recursive call until all digits have been dealt with -->
  241.     <xsl:if test="$bin-power &gt; 0">
  242.         <xsl:call-template name="Dec2Bin">
  243.             <xsl:with-param name="value" select="$remainder"/>
  244.             <xsl:with-param name="bin" select="$bin div 2"/>
  245.             <xsl:with-param name="bin-power" select="$bin-power - 1"/>
  246.             <xsl:with-param name="one-encounters" select="$one-encountered"/>
  247.         </xsl:call-template>
  248.     </xsl:if>
  249. </xsl:template>]]></new_template_fragment>
  250. </snippet>
  251. </xselerator_snippet_library>